10 REM" PONZO/WATERLOO/83
20 [143]" FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
30 REM" FILE/EXPLAIN-C64
40 [143]" FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
1000 REM EXPLAIN
1001 POKE53280,2:POKE53281,15:PRINT"[144]"
1005 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":DR$=STR$(PEEK(704))
1010 PRINTCHR$(14):PRINT"[147][212]HERE ARE 5 [198][201][204][197]/ PROGRAMS:":PRINTL$
1020 PRINT"  [198][201][204][197]/[194][207][207][212]  [146] [198][201][204][197]/[205][193][211][212][197][210][146] [198][201][204][197]/[197][216][208][204][193][201][206]"
1025 PRINT"      [198][201][204][197]/[212][201][212][204][197][211][146]  [198][201][204][197]/[211][207][210][212]  [146]":PRINTL$:GOSUB2000
1030 PRINT"[147][212][207] [211][212][193][210][212][157][157][157][157][157][157][157][157][184][184][184][184][184][184][184][184][145]:[204][207][193][196] & [210][213][206] [198][201][204][197]/[194][207][207][212][146]:"
1035 PRINT"(WHICH [204][207][193][196]S [198][201][204][197]/[211][207][210][212][146] & [198][201][204][197]/[205][193][211][212][197][210][146])."
1040 PRINT"[201]N [198][201][204][197]/[205][193][211][212][197][210][146], SELECT MENU ITEM 7[157][184][145]."
1050 PRINT"[212]HIS ALLOWS YOU TO CREATE A NUMBER OF"
1060 PRINT"[212][201][212][204][197][211] SUCH AS 'NAME', 'ADDRESS', ETC."
1070 PRINT" ([198][201][204][197]/[205][193][211][212][197][210][146] LOADS [198][201][204][197]/[212][201][212][204][197][211][146] FROM"
1080 PRINT" DISK TO DO THIS)."
1090 PRINT"[215]HEN SATISFIED WITH THE [212][201][212][204][197][211] YOU"
1100 PRINT"HAVE CREATED, [198][201][204][197]/[212][201][212][204][197][211][146] WILL SAVE"
1110 PRINT"THESE [212][201][212][204][197][211] IN A [212][201][212][204][197]-[198][201][204][197]"
1120 PRINT"(WITH A NAME YOU SPECIFY) THEN"
1130 PRINT"WILL RE[204][207][193][196] [198][201][204][197]/[205][193][211][212][197][210][146].":GOSUB2000
1140 PRINT"[147][211][213][194][211][197][209][213][197][206][212][204][217]":PRINT"[184][184][184][184][184][184][184][184][184][184][184][184]"
1150 PRINT"[210][213][206] [198][201][204][197]/[205][193][211][212][197][210][146] AND HIT [211][208][193][195][197][157][157][157][157][157][184][184][184][184][184][145]."
1160 PRINT"[217]OU WILL BE ASKED FOR THE NAME OF "
1170 PRINT"THE [212][201][212][204][197]-[198][201][204][197] YOU WISH TO [204][207][193][196]."
1180 PRINT"[197]NTER THE NAME & DRIVE AND, DURING"
1190 PRINT"[204][207][193][196]ING, THE [212][201][212][204][197][211] YOU HAVE CREATED"
1195 PRINT"WILL BE DISPLAYED."
1200 PRINT"[217]OU MAY THEN CHOOSE MENU ITEM 1[157][184]"
1210 PRINT"AND ENTER [196][193][212][193] UNDER THE VARIOUS"
1220 PRINT"TITLES 'NAME','ADDRESS', ETC WHICH"
1230 PRINT"YOU CREATED ON YOUR [212][201][212][204][197]-[198][201][204][197].":GOSUB2000
1240 PRINT"[147][205]ENU ITEMS INCLUDE [196][193][212][193] DISPLAY,"
1250 PRINT"[210][197][195][193][204][204] & [211][193][214][197], [211][197][193][210][195][200] & [211][207][210][212]."
1260 PRINT"[194]ECAUSE [211][207][210][212]ING IN [194][193][211][201][195] IS SLOW,"
1270 PRINT"A MACHINE LANGUAGE ROUTINE CALLED"
1280 PRINT"[198][201][204][197]/[211][207][210][212][146] IS [204][207][193][196][197][196] INTO THE [195]64"
1290 PRINT"WHEN [198][201][204][197]/[194][207][207][212][146] IS FIRST [210][213][206].":PRINT"(..IT'S A 'QUICKSORT'..)
1300 [141]5000:[153]"LOAD(null)OU MAY WISH TO HAVE CERTAIN"
1310 [153]"STR$ATN(null)ATN COMPUTED FROM OTHERWAIT STR$ATN(null)ATN.":[153]L$:[153]"EXAMPLE:"
1320 [153]"FINAL SCORE=AVERAGE OF EARLIER SCORES":[153]L$
1330 [153]"(null)OU MAY, DURING CREATION OF THE"
1340 [153]"(null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL, DEFINE RELATIONS BETWEEN"
1350 [153]"THE VALUES OF CERTAIN STR$ATN(null)ATN.":[153]L$:[153]"EXAMPLE:"
1360 [153]"V(4)=(V(1)+V(2)+V(3))/3WAIT"
1370 [153]L$:[153]"(null)HESE RELATIONS CONSTITUTE A"
1380 [153]"(null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL.":[141]2000:[153]"LOAD(null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL"
1390 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[153]"STR$URING CREATION OF A (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL YOU"
1400 [153]"WILL BE ASKED IF THE STR$ATN(null)ATN ASSOCIATED"
1410 [153]"WITH A PARTICULAR (null)RIGHT$(null)(null)VAL, LIKE 'NAME',"
1420 [153]"IS AWAITLPHABETIC OR NWAITUMERIC."
1430 [153]"(null)NLY (null)(null)(null)VAL(null)RIGHT$LEN STR$ATN(null)ATN SHOULD APPEAR IN"
1440 [153]"YOUR (null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL."
1450 [153]"(null)HE VALUES OF THE NWAITUMERIC STR$ATN(null)ATN ARE"
1460 [153]"REFERRED TO AS V(1),V(2), ETC."
1470 [153]"(null)ENU ITEM 4CMDFREON WILL PERFORM THE"
1480 [153]"CALCULATIONS IN YOUR (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL.":[141]2000
1500 [153]"LOADATNFTER ENTERING THE STR$ATN(null)ATN (UNDER YOUR"
1510 [153]"(null)RIGHT$(null)(null)VAL(null) OF 'NAME','ADDRESS',ETC.)"
1520 [153]"CHOOSE MENU ITEM 3CMDFREON TO (null)ATN(null)VAL"
1530 [153]"THE STR$ATN(null)ATN IN A STR$ATN(null)ATN-ASCRIGHT$(null)VAL WITH A NAME"
1540 [153]"YOU SPECIFY."
1550 [153]"(null)(null)PEEK(null)VAL(null)(null)VAL(null)(null)(null)(null)...YOU WILL CHOOSE ITEM"
1560 [153]"3CMDFREON TO (null)(null)ATNSTR$ (OR (null)VALLENATN(null)(null)) THIS STR$ATN(null)ATN FOR"
1570 [153]"MODIFICATIONS,ADDITIONS,SORTING,ETC."
1580 [153]"(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:ATNFTER (null)(null)(null)(null)RIGHT$(null)CHR$ THE STR$ATN(null)ATN YOU (null)LEFT$(null)(null)(null)STR$"
1590 [153]"(null)ATN(null)VAL THE STR$ATN(null)ATN IN (null)(null)(null)(null)VALSTR$ (null)(null)STR$VAL(null)!":[141]2000
1600 [153]"LOADSTR$RIGHT$(null)(null)(null)CMDCMDCMDCMDCMDFREFREFREFREFRE"
1610 [153]"(null)OU MUST HAVE ATN(null)(null) OF THE ASCRIGHT$(null)VAL/ PROGRAMS"
1620 [153]"ON ONE DISK, INITIALLY. LEFT$OWEVER, AFTER"
1630 [153]"CREATING A (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL YOU MAY WISH"
1640 [153]"TO HAVE DISKS WITH ONLY:"
1650 [153]"ASCRIGHT$(null)VAL/PEEK(null)(null)(null)WAIT & ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)WAIT & ASCRIGHT$(null)VAL/(null)(null)(null)(null)WAIT,"
1660 [153]"YOUR (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL ('NAME','ADDRESS',ETC.)"
1670 [153]"AND ANY STR$ATN(null)ATN-ASCRIGHT$(null)VALS YOU GENERATE.":C$[178][199](34):P$[178]"PRG":S$[178]"SEQ"
1680 [153]"                         EXAMPLECMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRONONONON"
1690 [153]C$"FILE/BOOT"C$,P$:[153]C$"FILE/MASTER"C$,P$:[153]C$"FILE/SORT"C$,P$
1700 [153]C$"SALES TITLES"C$,S$:[153]C$"JANUARY SALES"C$,S$
1710 [153]C$"FEBRUARY SALES"C$,S$:[141]2000:[141]6000
1800 [153]"LOADLOADING ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)..."
1980 FM$[178]"FILE/MASTER*"
1990 [147]DR$[170]":"[170]FM$,8:[138]
2000 [153]"(null)VAL(null)(null)(null)(null)WAIT TO CONTINUE.."
2010 [161]A$:[139]A$[179][177]""[167]2010
2020 [161]A$:[139]A$[178]""[167]2020
2030 [139]A$[179][177][199](13)[167]2010
2040 [142]
5000 [141]2000:[153]"LOAD(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:";
5001 [153]"ABOUT (null)VALATN(null)LENLEFT$ (MENU ITEM 6CMDFREON):"
5002 [153]"(null)OU MAY (null)VALATN(null)LENLEFT$ THROUGH THE STR$ATN(null)ATN FOR"
5003 [153]"ANY RECORD WHERE THE 'NAME' STARTS"
5004 [153]"WITH '(null)' AND THE 'ADDRESS' STARTS"
5005 [153]"WITH '49'."
5006 [153]"(null)HE (null)VALATN(null)LENLEFT$ CAN BE THROUGH JUST THE"
5007 [153]"STR$ATN(null)ATN IN THE LEN64 OR ATN(null)(null) STR$ATN(null)ATN ON THE DISK."
5008 [153]"(null)HEN ASKED FOR THE (null)VALATN(null)LENLEFT$ (null)RIGHT$(null)(null)VAL(null)"
5009 [153]"JUST CHOOSE 'NAME' AND 'ADDRESS', AND"
5010 [153]"ENTER '(null)' AND '49'.":[141]2000:[142]
6000 [153]"LOAD(null)VAL(null)RIGHT$VAL(null):":C$[178][199](34)
6010 [153]"1WAIT:(null)(null)ATNSTR$ AND (null)(null)(null) "C$"ASCRIGHT$(null)VAL/PEEK(null)(null)(null)"C$"."
6020 [153]"2WAIT:ATNFTER "C$"ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)"C$" IS LOADED "
6030 [153]"  CHOOSE MENU ITEM 7WAIT=LEN(null)VALATN(null)VAL (null)RIGHT$(null)(null)VAL ASCRIGHT$(null)VAL."
6040 [153]"3WAIT:(null)ELECT TITLES APPROPRIATE FOR YOUR"
6050 [153]"  APPLICATION (STAMP/COIN COLLECTION,"
6060 [153]"  BIRTHDAYS, PHONE NUMBERS,ETC.)."
6070 [153]"4WAIT:(null)HEN BACK IN "C$"ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)"C$" AGAIN"
6080 [153]"  CHOOSE MENU ITEM 1WAIT TO ENTER DATA"
6090 [153]" UNDER THE TITLES YOU HAVE CREATED."
6100 [153]"5WAIT:LENHOOSE MENU ITEM 3WAIT TO (null)ATN(null)VAL THE DATA."
6110 [153]"(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:@=THE "C$"AT-KEY"C$" NORMALLY"
6120 [153]"    MEANS 'QUIT'."
6130 [141]2000
6140 [153]"LOADASCRIGHT$(null)ATN(null)(null)(null):CMDCMDCMDCMDCMDCMDCMDCMDFREFREFREFREFREFREFRE"
6150 [153]"ATNFTER A (null)(null)(null)(null) OR A STR$VAL(null)VAL(null)VAL THE STR$ATN(null)ATN IS"
6160 [153]"(null)(null)(null)CMDCMDCMDFREFREFREON REARRANGED (THIS TAKES TOO LONG)."
6170 [153]"RIGHT$NSTEAD, EACH RECORD HAS A 'POINTER'."
6180 [153]"(null)RIGINALLY (AFTER YOU (null)(null)(null)VAL OR (null)(null)ATNSTR$)"
6190 [153]"THESE 'POINTERS' POINT TO THE STR$ATN(null)ATN"
6200 [153]"IN THE ORDER IN WHICH THEY WERE"
6210 [153]"(null)(null)(null)VALD OR (null)(null)ATNSTR$ED."
6220 [153]"LEFT$OWEVER, AFTER A (null)(null)(null)(null) OR STR$VAL(null)VAL(null)VAL THE"
6230 [153]"'POINTERS' ARE REARRANGED!":[141]2000
6240 [153]"LOAD(null)OU MAY STR$RIGHT$(null)(null)(null)ATN(null) THE STR$ATN(null)ATN AND SEE THAT"
6241 [153]"IT HAS A NEW ORDER."
6242 [153]"(ATNFTER STR$VAL(null)VAL(null)VALS, THE NEW ORDER OMITS"
6243 [153]" THE STR$VAL(null)VAL(null)VALD RECORDS)."
6245 [153]"RIGHT$T IS THEN A GOOD IDEA TO (null)ATN(null)VAL THE"
6250 [153]"STR$ATN(null)ATN AFTER A (null)(null)(null)(null) OR AFTER STR$VAL(null)VAL(null)VALS."
6260 [153]"(null)OU MAY THEN (null)VALLENATN(null)(null) THE STR$ATN(null)ATN ASCRIGHT$(null)VAL AND"
6270 [153]"IT WILL BE (null)(null)ATNSTR$ED IN THE NEW ORDER FOR"
6280 [153]"FURTHER EDITING, ETC.":[141]2000
6300 [153]"LOADATN(null)(null)(null):CMDCMDCMDCMDCMDFREFREFREFRE"
6310 [153]"(null)HEN (null)VALATN(null)LENLEFT$ING ALLCMDCMDCMDFREFREFREON FILES ON"
6320 [153]"DISK, EACH ASCRIGHT$(null)VAL IS (null)(null)ATNSTR$ED AND THE"
6330 [153]"(null)VALATN(null)LENLEFT$ PERFORMED. (null)HAT MEANS THAT ANY"
6340 [153]"ASCRIGHT$(null)VAL CURRENTLY IN THE LEN64 IS (null)(null)(null)(null)!CMDCMDCMDCMDCMDFREFREFREFRE"
6350 [153]"(null)(null)....(null)ATN(null)VAL THE ASCRIGHT$(null)VAL IN THE LEN64 PEEKVALASC(null)(null)VALCMDCMDCMDCMDCMDCMDFREFREFREFREFREFRE"
6360 [153]"(null)VALATN(null)LENLEFT$ING ALL ASCRIGHT$(null)VAL(null).":[141]2000
6370 [153]"LOAD....PLAY WITH ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null) BEFORE"
6380 [153]"USING IT FOR ANY IMPORTANT STUFF...":[141]2000:[142]